//{$DEFINE DUNIT_CONSOLE_MODE}

program codemythtester;

uses
  SysUtils,
  TestFramework,
  TestExtensions,
  GUITestRunner,
  TextTestRunner,
  test.codemyth.workflow in 'test.codemyth.workflow.pas',
  uFrmFindWithResult in '..\DataOpInterface\uFrmFindWithResult.pas',
  uFrmData in '..\DataOpInterface\uFrmData.pas' {FrmData},
  uFrmDataDetail in '..\DataOpInterface\uFrmDataDetail.pas' {FrmDataDetail},
  uFrmDataDetail_WithChild in '..\DataOpInterface\uFrmDataDetail_WithChild.pas' {FrmDataDetail_WithChild},
  uFrmDataDetail_WorkFlow in '..\DataOpInterface\uFrmDataDetail_WorkFlow.pas' {FrmDataDetail_WorkFlow},
  uFrmDataGrid in '..\DataOpInterface\uFrmDataGrid.pas' {FrmDataGrid},
  uFrmDataGrid_MultiKind in '..\DataOpInterface\uFrmDataGrid_MultiKind.pas' {FrmDataGrid_MultiKind},
  uFrmDataGrid_Paged in '..\DataOpInterface\uFrmDataGrid_Paged.pas' {FrmDataGrid_Paged},
  uFrmDataGrid_WithChild in '..\DataOpInterface\uFrmDataGrid_WithChild.pas' {FrmDataGrid_WithChild},
  uFrmDataGrid_WithChildGrid in '..\DataOpInterface\uFrmDataGrid_WithChildGrid.pas' {FrmDataGrid_WithChildGrid},
  ufrmDataGrid_WithTree in '..\DataOpInterface\uFrmDataGrid_WithTree.pas' {FrmDataGrid_WithTree},
  uFrmDataGrid_WorkFlow in '..\DataOpInterface\uFrmDataGrid_WorkFlow.pas' {FrmDataGrid_WorkFlow},
  uFrmDataTree in '..\DataOpInterface\uFrmDataTree.pas' {FrmDataTree},
  uFrmFind in '..\DataOpInterface\uFrmFind.pas' {FrmFind},
  test.codemyth.utils in 'test.codemyth.utils.pas';

{$IFDEF DUNIT_CONSOLE_MODE}
{$APPTYPE CONSOLE}
{$ELSE}
{$R *.RES}
{$ENDIF}

begin
{$IFDEF DUNIT_CONSOLE_MODE}
    if not FindCmdLineSwitch( 'Graphic', [ '-', '/' ], True ) then
        TextTestRunner.RunRegisteredTests( rxbHaltOnFailures )
    else
{$ENDIF}
        GUITestRunner.RunRegisteredTests;
end.

